home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IFRSIM.DSK / NDB RWY 22.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  70 lines
  1. 1 S = 100:S1 = 0:UP = 24579
  2. 2 ST = 24576:O1 = ST +56:O2 = ST +58:I1 = ST +60:I2 = ST +61:MA = ST +12:X1 = ST +26:Y1 = ST +28:AL = ST +87
  3. 3 SH = ST +09:PL = ST +06:LI = ST +15:XY = ST +18:DF = ST +39:CH = ST +93
  4. 5 XC = 100:YC = 130:XF = 70:YF = 135
  5. 10  TEXT : GOSUB 5000
  6. 15 MT = 15:GAS = 0:MI = 0:SE = 0:S1 = 0
  7. 20  CALL ST
  8. 30  POKE O1,32: POKE O2,32: POKE I1,48: POKE I2,48
  9. 40  VTAB 22: PRINT "OBS TOP = 004 FROM LIT VOR"
  10. 50  POKE X1,110: POKE Y1,80
  11. 90  POKE AL,32: POKE AL -3,16:MA% = 2
  12. 100  CALL UP
  13. 110 S1 = S1 +1: IF S1 >S  THEN 300
  14. 200  GOTO 100
  15. 210  REM  
  16. 220  REM  
  17. 230  REM  
  18. 300 S1 = 0:SE = SE +1: IF SE >59  THEN 4000
  19. 310  HTAB 1: VTAB 24: PRINT HO;":";;MI;":";SE;" GAS=";MT -GA;" MINUTES REMAINING";
  20. 320 X =  PEEK(X1):Y =  PEEK(Y1)
  21. 321 IX = XF -X:IY = YF -Y:DY = YC -Y:DX = XC -X
  22. 322  IF IX = 0  THEN 324
  23. 323 IT = IY/IX
  24. 324 T1 =  ATN(IT)
  25. 325 T1% = 16 -10 *T1
  26. 327  IF X >XF  THEN PF% = (176 -T1%) - PEEK(CH)
  27. 328  IF X <XF  THEN PF% = (208 -T1%) - PEEK(CH)
  28. 329  IF PF% >64  THEN PF% = PF% -64: GOTO 329
  29. 330  POKE DF,PF%
  30. 360  IF DX < -5  THEN DX =  -6
  31. 370  IF DX >5  THEN DX = 6
  32. 380  POKE O1,32 -DX: POKE I2,48
  33. 385  IF  PEEK(ALT) <5  THEN 480
  34. 430  IF DI >6  THEN DI = 6
  35. 470  IF  PEEK(AL) >5  THEN 100
  36. 480  REM 
  37. 490  REM 
  38. 500  HGR : CALL 24588: HCOLOR= 2: HPLOT 92,113
  39. 502  HPLOT  TO 80,128
  40. 510  HPLOT  TO 80,115
  41. 520  HPLOT  TO 90,120
  42. 525  HCOLOR= 1
  43. 530  FOR X = 95 TO 150
  44. 540 Y = 250 -X *1.5
  45. 545  HPLOT X,Y
  46. 550  NEXT 
  47. 560  FOR Y = 90 TO 150
  48. 565 X = 101: HPLOT X,Y
  49. 570  NEXT 
  50. 580  FOR I = 1 TO 30
  51. 590 X =  RND(1) *5:Y =  RND(1) *5
  52. 595  HPLOT XF +X,YF +Y: NEXT 
  53. 600  HOME : VTAB 23: PRINT "HIT RETURN TO FLY THIS AGAIN": PRINT "ANY OTHER KEY FOR MENU": GET A$
  54. 610  IF  ASC(A$) = 13  THEN 10
  55. 620  PRINT  CHR$(4)
  56. 630  PRINT  CHR$(4);"RUN MENU"
  57. 640  END 
  58. 4000 SE = 0:MI = MI +1:GA = GA +1
  59. 4010  GOTO 100
  60. 5000  HOME : PRINT "YOU ARE CLEARED FOR NDB RWY 22 APPROACH"
  61. 5010  PRINT : PRINT "FLY HEADING 270 TO INTERCEPT THE 004"
  62. 5020  PRINT : PRINT "RADIAL FROM LIT VOR (TOP OMNI)"
  63. 5030  PRINT : PRINT "INTERCEPT AND FLY OUTBOUND ON THE 222"
  64. 5040  PRINT : PRINT "BEARING TO LASKI NDB (HEADING 042)"
  65. 5050  PRINT : PRINT "MAKE PROCEDURE TURN TO EAST THEN TRACK"
  66. 5060  PRINT : PRINT "INBOUND ON THE 222 DEGREE BEARING"
  67. 5070  PRINT : PRINT "TO LASKI NDB.  FAF IS 004 FROM"
  68. 5080  PRINT : PRINT "LIT VOR.  MAINTAIN AT OR ABOVE 1800"
  69. 5090  PRINT : PRINT "UNTIL PAST FINAL APPROACH FIX INBOUND"
  70. 5100  PRINT : PRINT "HIT ANY KEY WHEN READY TO FLY": GET A$: HOME : RETURN